﻿Module Module1
  Sub Main()
    Console.Write("Inserisci un numero " & _
       "da 1 a 3: ")
    Dim numero As Integer = _
          CType(Console.ReadLine(), Integer)
    Select Case numero
      Case 1
        Console.WriteLine("Hai inserito 1")
      Case 2
        Console.WriteLine("Hai inserito 2")
      Case 3
        Console.WriteLine("Hai inserito 3")
      Case Else
        Console.WriteLine("Hai inserito " & _
           "un numero non valido")
    End Select
    Console.ReadLine()
  End Sub
End Module

